home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / graphics.lib < prev    next >
Text File  |  1990-11-01  |  5KB  |  109 lines
  1. {$if not def GRAPHICS_RASTPORT_H;incl"graphics/rastport.h";endif}
  2. {$if not def GRAPHICS_VIEW_H;incl"graphics/view.h";endif}
  3. {$if not def GRAPHICS_LIB}
  4. Const GRAPHICS_LIB='G';
  5. Var GfxBase: ptr;
  6. Procedure OpenGfx;
  7.  Begin OpenLib(GfxBase,'graphics.library',0) End;
  8. Library GfxBase:
  9. -30: Function BltBitMap(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5,d6,d7:Long; a2:Ptr):Long;
  10. -36: Procedure BltTemplate(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5:Long);
  11. -42: Procedure ClearEOL(a1:p_RastPort);
  12. -48: Procedure ClearScreen(a1:p_RastPort);
  13. -54: Function TextLength(a1:p_RastPort; a0:str; d0:Long):Integer;
  14. -60: Function _Text(a1:p_RastPort; a0:str; d0:Long):Boolean;
  15. -60: Function GfxText(a1:p_RastPort; a0:str; d0:Long):Boolean;
  16. -66: Function SetFont(a1:p_RastPort; a0:Ptr):Boolean;
  17. -72: Function OpenFont(a0:Ptr):Ptr;
  18. -78: Procedure CloseFont(a1:Ptr);
  19. -84: Function AskFontStyle(a1:p_RastPort):Word;
  20. -90: Procedure SetSoftStyle(a1:p_RastPort; d0,d1:Word);
  21. -96: Procedure AddBob(a0:Ptr; a1:p_RastPort);
  22. -102:Procedure AddVSprite(a0:Ptr; a1:p_RastPort);
  23. -108:Procedure DoCollision(a1:p_RastPort);
  24. -114:Procedure DrawGList(a1:p_rastPort; a0:p_ViewPort);
  25. -120:Procedure InitGels(a0,a1,a2:Ptr);
  26. -126:Procedure InitMasks(a0:Ptr);
  27. -132:Procedure RemIBob(a0:Ptr; a1:p_RastPort; a2:p_ViewPort);
  28. -138:Procedure RemVSprite(a0:Ptr);
  29. -144:Procedure SetCollision(d0:Long; a0,a1:Ptr);
  30. -150:Procedure SortGList(a1:p_RastPort);
  31. -156:Procedure AddAnimObj(a0,a1:Ptr; a2:p_RastPort);
  32. -162:Procedure Animate(a0:Ptr; a1:p_RastPort);
  33. -168:Function GetGBuffers(a0:Ptr; a1:p_RastPort; d0:Long):integer;
  34. -174:Procedure InitGMasks(a0:Ptr);
  35. -180:Procedure DrawEllipse(a1:p_RastPort;d0,d1,d2,d3:Long);
  36. -186:Procedure AreaEllipse(a1:p_RastPort;d0,d1,d2,d3:Long);
  37. -192:Procedure LoadRGB4(a0:p_ViewPort; a1:ptr; d0:Long);
  38. -198:Procedure InitRastPort(a1:p_RastPort);
  39. -204:Procedure InitVPort(a0:p_ViewPort);
  40. -210:Procedure MrgCop(a1:p_View);
  41. -216:Procedure MakeVPort(a0:p_View; a1:p_ViewPort);
  42. -222:Procedure LoadView(a1:p_View);
  43. -228:Procedure WaitBlit;
  44. -234:Procedure SetRast(a1:p_RastPort; d0:Long);
  45. -240:Procedure Move(a1:p_RastPort; d0,d1:Integer);
  46. -246:Procedure Draw(a1:p_RastPort; d0,d1:Integer);
  47. -252:Procedure AreaMove(a1:p_RastPort; d0,d1:Integer);
  48. -258:Procedure AreaDraw(a1:p_RastPort; d0,d1:Integer);
  49. -264:Procedure AreaEnd(a1:p_RastPort);
  50. -270:Procedure WaitTOF;
  51. -276:Procedure QBlit(a1:Ptr);
  52. -282:Procedure InitArea(a0:p_AreaInfo; a1:ptr; d0:Long);
  53. -288:Procedure SetRGB4(a0:p_ViewPort; d0,d1,d2,d3:Long);
  54. -294:Procedure QBSBlit(a1:Ptr);
  55. -300:Procedure BltClear(a1:Ptr; d0,d1:Long);
  56. -306:Procedure RectFill(a1:p_RastPort; d0,d1,d2,d3:Integer);
  57. -312:Procedure BltPattern(a1:p_RastPort; a0:Ptr; d0,d1,d2,d3,d4:Long);
  58. -318:Function ReadPixel(a1:p_RastPort; d0,d1:Integer):Integer;
  59. -324:Procedure WritePixel(a1:p_RastPort; d0,d1:Integer);
  60. -330:Procedure Flood(a1:p_RastPort; d2:Long; d0,d1:Integer);
  61. -336:Procedure PolyDraw(a1:p_rastPort; d0:Long; a0:ptr);
  62. -342:Procedure SetAPen(a1:p_RastPort; d0:Long);
  63. -348:Procedure SetBPen(a1:p_RastPort; d0:Long);
  64. -354:Procedure SetDrMd(a1:p_RastPort; d0:Long);
  65. -360:Procedure InitView(a1:p_View);
  66. -366:Procedure CBump(a1:Ptr);
  67. -372:Procedure CMove(a1:Ptr; d0,d1:Long);
  68. -378:Procedure CWait(a1:Ptr; d0,d1:Long);
  69. -384:Function VBeamPos:integer;
  70. -390:Procedure InitBitmap(a1:ptr; d0,d1,d2:Long);
  71. -396:Procedure ScrollRaster(a1:p_RastPort; d0,d1,d2,d3,d4,d5:Integer);
  72. -402:Procedure WaitBOVP(a0:p_ViewPort);
  73. -408:Function GetSprite(a0:Ptr; d0:Long):integer;
  74. -414:Procedure FreeSprite(d0:Long);
  75. -420:Procedure ChangeSprite(a0:p_ViewPort; a1,a2:Ptr);
  76. -426:Procedure MoveSprite(a0:p_ViewPort; a1:Ptr; d0,d1:integer);
  77. { LockLayerRom,UnLockLayerRom not possible }
  78. -444:Procedure SyncSBitMap(a0:Ptr);
  79. -450:Procedure CopySBitMap(a0,a1:Ptr);
  80. -456:Procedure OwnBlitter;
  81. -462:Procedure DisownBlitter;
  82. -468:Procedure InitTmpRas(a0:p_TmpRas; a1:Ptr; d0:Long);
  83. -474:Procedure AskFont(a1:p_RastPort; a0:Ptr);
  84. -480:Procedure AddFont(a1:Ptr);
  85. -486:Procedure RemFont(a1:Ptr);
  86. -492:Function AllocRaster(d0,d1:Long):Ptr;
  87. -498:Procedure FreeRaster(a0:Ptr; d0,d1:Long);
  88. -504:Procedure AndRectRegion(a0,a1:Ptr);
  89. -510:Procedure OrRectRegion(a0,a1:Ptr);
  90. -516:Function NewRegion:Ptr;
  91. {-522:reserved}
  92. -528:Procedure ClearRegion(a0:Ptr);
  93. -534:Procedure DisposeRegion(a0:Ptr);
  94. -540:Procedure FreeVPortCopList(a0:p_ViewPort);
  95. -546:Procedure FreeCopList(a0:Ptr);
  96. -552:Procedure ClipBlit(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5,d6:Long);
  97. -558:Procedure XorRectRegion(a0,a1:Ptr);
  98. -564:Procedure FreeCprList(a0:Ptr);
  99. -570:Function GetColorMap(d0:Long):Ptr;
  100. -576:Procedure FreeColorMap(a0:Ptr);
  101. -582:Function GetRGB4(a0:Ptr; d0:integer):integer;
  102. -588:Procedure ScrollVPort(a0:p_ViewPort);
  103. -594:Procedure UCopperListInit(a0:Ptr; d0:Long);
  104. -600:Procedure FreeGBuffers(a0:Ptr; a1:p_RastPort; d0:Long);
  105. -606:Procedure BltBitMapRastPort(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5,d6:Long);
  106. End;
  107. {$endif}
  108.  
  109.